home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / sirlinvw.zip / DEMO.CF < prev    next >
Text File  |  1990-07-31  |  44KB  |  1 lines
  1. *Define TRUE 1 *Define FALSE 0 *Define ON 1 *Define OFF 0 *Define SIMPLE 2 *Define OK 0 *Define DONE 1 *Define CANCEL 2 *Define RETREQ 3 *Define zXORz 2 *Define SPACECH 32 *New Object DUMYOBJ *New HelpDevice DUMYCALLER *New Device NULLCALLER *Define DWGVIEW ZoomDefault: *Define DWGPATH ""  *New MsgAction { SetTarget: DUMYOBJ SetMessage: "{ *Include VIEW.PRN }" Doit: SetMessage: "{ *Include VIEW.CNF }" Doit: Delete: } *New IAction nullact { SetTarget: DUMYOBJ SetOpcode: SetStatus: SetIValue: 0 } *New IAction cancel { SetTarget: DUMYOBJ SetOpcode: SetStatus: SetIValue: CANCEL } *Define ok nullact *New SAction tmpsaction { } *New Faction tmpfaction { } *New OpAction donedoit { SetOpcode: Doit: } *New ObjAction donecontrol { SetOpcode: TakeControl: SetOValue: DUMYCALLER } *New OpAction doneaction { SetTarget: donedoit SetOpcode: Doit: } *New ObjAction setdonedoit { SetTarget: doneaction SetOpcode: SetTarget: SetOValue: donedoit } *New ObjAction setdonecontrol { SetTarget: doneaction SetOpcode: SetTarget: SetOValue: donecontrol } *New MsgAction pauseaction { SetTarget: DUMYOBJ SetMessage: "{ *Pause }" }  *New Pen whitepen { SetPenColor: WHITE SetBkgdColor: BLUE } *New Pen blackbkgd { SetPenColor: WHITE SetBkgdColor: BLACK } *New Pen borderpen { SetPenColor: YELLOW } *New Pen dialogpen { SetPenColor: YELLOW SetBkgdColor: BLUE } *New Pen titlepen { SetPenColor: BLUE SetBkgdColor: YELLOW } *New Pen greybkgd { SetPenColor: BLACK SetBkgdColor: LT_GREY } *Define fieldpen blackbkgd *New Pen redpen { SetPenColor: LT_RED SetBkgdColor: BLUE } *New Pen linkpen { SetPenColor: YELLOW SetBkgdColor: BLACK SetPenMode: zXORz }  *New Cursor normalcursor { SetCursorStyle: 0 } *New Cursor locatecursor { SetCursorStyle: 2 } *New Cursor waitcursor { SetCursorStyle: 5 } *New Field { SetInsertCursor: 3 SYSTXTHGT SetReplaceCursor: SYSTXTWID SYSTXTHGT Delete: }  *New Canvas opening { SetWidthToScreen: SetHeightToScreen: SetSaveUnder: FALSE SetPen: dialogpen SetBorderPen: borderpen AddGraphic: *New Ftext { SetPosnRC: 4 25 SetString: "_____________________________" } AddGraphic: *New Ftext { SetPosnRC: 6 25 SetString: "       SirlinVIEW (tm)" } AddGraphic: *New Ftext { SetPosnRC: 8 25 SetString: "    Demonstration Program" } AddGraphic: *New Ftext { SetPosnRC: 9 25 SetString: "_____________________________" } AddGraphic: *New Ftext { SetPosnRC: 11 25 SetString: " CAD Information Management" } AddGraphic: *New Ftext { SetPosnRC: 23 4 SetString: "Copyright (c) 1990 Sirlin Computer Corporation. All Rights Reserved." } AddGraphic: *New Ftext initializing { SetPosnRC: 18 33 SetString: "INITIALIZING..." SetPen: dialogpen } }  *Send normalcursor { HideCursor: UseCursor: SetEventXY: 1 10 10 0 } *Send opening { Draw: } *New Canvas mainprompt { SetSizeRC: 1 SCRN_CSIZ SetPen: whitepen AddGraphic: *New Ftext { SetString: " SirlinVIEW" } SetSaveUnder: FALSE } *New Canvas prompt { SetSizeRC: 1 SCRN_CSIZ AddGraphic: *New Ftext promptmsg { SetSizeRC: 1 SCRN_CSIZ SetFixedSize: TRUE } SetPen: whitepen } *New OpAction drawprompt { SetTarget: prompt SetOpcode: Draw: } *New OpAction undrawprompt { SetTarget: prompt SetOpcode: Undraw: } *New Canvas status { SetSizeRC: 1 SCRN_CSIZ SetPosnRC: SCRN_RSIZM1 0 SetPen: whitepen AddGraphic: *New Ftext { SetString: "Drawing:" SetPosnRC: 0 1 } AddGraphic: *New Ftext dwgnametext { SetPosnRC: 0 10 SetSizeRC: 1 12 SetFixedSize: TRUE } AddGraphic: *New Ftext { SetPosnRC: 0 50 SetString: "X,Y:" } AddGraphic: *New Ftext xytext { SetPosnRC: 0 55 SetSizeRC: 1 20 SetFixedSize: TRUE SetString: "" } SetSaveUnder: FALSE } *New CoordString coordstr { SetLUOp: XformPtoW: SetTarget: xytext SetOpcode: SetString: } *New Canvas messagebox { SetSizeRC: 3 45 SetPosnRC: 12 20 SetPen: dialogpen SetBorderPen: borderpen AddGraphic: *New Ftext messageboxtext { SetPosnRC: 1 2 } } *New Dialog okcancelbox { SetGraphic: *New Canvas { SetPen: dialogpen SetBorderPen: borderpen AddGraphic: *New Ftext okcancelboxtext { SetPosnRC: 1 2 SetSizeRC: 1 43 SetFixedSize: TRUE } AddGraphic: *New Ftext okcancelboxtext2 { SetPosnRC: 2 2 SetSizeRC: 1 43 SetFixedSize: TRUE } } AdjustSpacing: AddDevice: *New Device { SetGraphic: *New Composite { SetPosnRC: 4 33 AddGraphic: *New Ftext { SetString: "   OK" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } } AddDevice: *New Device { SetGraphic: *New Composite { SetPosnRC: 4 23 AddGraphic: *New Ftext { SetString: " Cancel" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: cancel SetSkipOver: TRUE } AdjustAlignment: SetTouchOutside: FALSE SetClickOutside: FALSE SetInitAction: *New OpAction { SetTarget: okcancelbox SetOpcode: Reset: } SetDoneAction: *New Behavior okcanceldone { AddAction: *New SAction { SetTarget: okcancelboxtext SetOpcode: SetString: SetSValue: "" } AddAction: *New SAction { SetTarget: okcancelboxtext2 SetOpcode: SetString: SetSValue: "" } } SetCancelAction: okcanceldone } *New Ftextwin helptext { SetPosnRC: 1 1 SetSizeRC: 10 40 SetEOBuf: SPACECH } *New Button help_up { SetGraphic: *New Composite { SetPosnRC: 12 2 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "  PgUp" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: *New OpAction { SetTarget: helptext SetOpcode: PageUp: } SetReturnDone: FALSE } *New Button help_down { SetGraphic: *New Composite { SetPosnRC: 12 12 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "  PgDn" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: *New OpAction { SetTarget: helptext SetOpcode: PageDown: } SetReturnDone: FALSE } *New Button help_done { SetGraphic: *New Composite { SetPosnRC: 12 32 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "  Done" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: cancel } *New Dialog helpbox { SetGraphic: *New Canvas { SetPen: dialogpen SetBorderPen: borderpen } AddDevice: *New HelpWindow helpwin { SetGraphic: helptext SetHelpTextWin: helptext SetHelpFile: HELPFILE } AdjustSpacing: AddGraphic: *New Rectang { SetSizeRC: 1 42 SetPen: borderpen SetFilled: TRUE } AddGraphic: *New Ftext { SetString: "HELP Topic:" SetPosnRC: 0 2 SetPen: titlepen } AddGraphic: *New Ftext helptopicdisplay { SetString: "GENERAL" SetPosnRC: 0 14 SetPen: titlepen } AddDevice: help_up AddDevice: help_down AddDevice: help_done AdjustAlignment: } *New SAction helptopic { SetTarget: helpwin SetOpcode: LoadHelp: SetSValue: "GENERAL" } *New Behavior helpaction { AddAction: helptopic AddAction: *New MsgAction { SetTarget: helptopic SetMessage: "{ DoitToit: helptopicdisplay SetString: }" } AddAction: *New ObjAction { SetTarget: helpbox SetOpcode: TakeControl: SetOValue: *New Device { } } AddAction: *New OpAction { SetTarget: helpwin SetOpcode: Reset: } } *Send DUMYCALLER { SetDoneAction: helpaction } *New Ftext errortype { SetPosnRC: 1 1 SetSizeRC: 1 38 SetFixedSize: TRUE } *New Ftext errormsg { SetPosnRC: 2 1 SetSizeRC: 1 38 SetFixedSize: TRUE } *New Ftext errorname { SetPosnRC: 3 1 SetSizeRC: 1 38 SetFixedSize: TRUE } *New Dialog errorbox { SetGraphic: *New Canvas errorgraphic { SetPen: dialogpen SetBorderPen: borderpen AddGraphic: errortype AddGraphic: errormsg AddGraphic: errorname } AdjustSpacing: AddDevice: *New Device { SetGraphic: *New Composite { SetPosnRC: 4 30 AddGraphic: *New Ftext { SetString: "   OK" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } } AdjustAlignment: } *Send DUMYOBJ { SetErrorBox: errorbox SetErrorTypeText: errortype SetErrorMsgText: errormsg SetErrorNameText: errorname }  *New DwgButton maindwgbutton { } *New Autodwg autodwg { SetAspectRatio: ASPECTRATIO SetPosnRC: 0 0 SetSizeRC: SCRN_RSIZM2 SCRN_CSIZ SetDirPath: DWGPATH SetScreenDwgControl: screenControl SetPrintDwgControl: printControl } *New Notes notes { } *New Behavior dwgdraw { SetReturnCancel: TRUE AddAction: *New IAction { SetTarget: dwgdraw SetOpcode: SetStopOnCancel: SetIValue: FALSE } AddAction: *New SAction drawingprompt { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " DRAWING... Press <esc> to stop, arrows to pan, + - to zoom." } AddAction: drawprompt AddAction: *New IAction { SetTarget: maindwgbutton SetOpcode: SetStopped: SetIValue: FALSE } AddAction: *New OpAction { SetTarget: autodwg SetOpcode: Draw: } AddAction: *New OnStatus { SetReturnCancel: TRUE SetReturnError: TRUE SetReturnEvent: FALSE SetOKAction: *New Behavior dwgdrawA { } SetCancelAction: dwgdrawA SetEventAction: *New Behavior { SetReturnCancel: TRUE AddAction: *New IAction { SetTarget: maindwgbutton SetOpcode: SetStopped: SetIValue: TRUE } AddAction: cancel } } } *Send dwgdrawA { AddAction: *New OpAction { SetTarget: notes SetOpcode: Draw: } AddAction: *New OpAction { SetTarget: *New Rectang { SetPosnRC: 1 0 SetSizeRC: SCRN_RSIZM2 SCRN_CSIZ SetPen: borderpen } SetOpcode: Draw: } AddAction: undrawprompt } *New OpAction dwgverify { SetTarget: autodwg SetOpcode: Verify: } *New LayerHolder layer_holder { SetTarget: autodwg } *New SAction dwgname { } *New Directory dwgdirectory { SetDirPath: DWGPATH SetDirFilter: "*.dwg" } *Send coordstr { SetHolder: autodwg } *New Field prnpage_title1 { SetGraphic: *New Ftext { SetFixedSize: TRUE SetSizeRC: 1 32 SetString: "                                " } } *New Field prnpage_title2 { SetGraphic: *New Ftext { SetFixedSize: TRUE SetSizeRC: 1 32 SetString: "                                " } }  *New Dialog dirbox { } *New Field dirbox_fnamefield { SetGraphic: *New Ftext dirbox_fname { SetString: "" SetPen: fieldpen SetPosnRC: 4 20 SetSizeRC: 1 12 SetFixedSize: TRUE } SetDoneAction: *New OpAction { SetTarget: normalcursor SetOpcode: ShowTextCursor: } SetReturnDone: TRUE SetReturnCancel: FALSE SetCancelAction: *New Behavior { AddAction: *New OpAction { SetTarget: dirbox_fname SetOpcode: Draw: } AddAction: *New OpAction { SetTarget: normalcursor SetOpcode: ShowTextCursor: } } SetTouchOutside: TRUE SetClickOutside: TRUE SetOutsideStatus: OK } *New Field dirbox_dirfield { SetGraphic: *New Ftext dirbox_dirname { SetString: "*.DWG" SetPen: fieldpen SetPosnRC: 2 1 SetSizeRC: 1 31 SetFixedSize: TRUE } SetReturnDone: FALSE SetDoneAction: *New Behavior { AddAction: *New MsgAction { SetTarget: tmpsaction SetMessage: "{ RecvSValue: dirbox_dirname AskString: DoitToit: dwgdirectory SetDirPath: }" } AddAction: *New MsgAction { SetTarget: tmpsaction SetMessage: "{ RecvSValue: dwgdirectory AskDirMatch: DoitToit: dirbox_dirname SetString: }" } AddAction: *New SAction { SetTarget: dirbox_fname SetOpcode: SetString: SetSValue: "" } AddAction: *New OpAction { SetTarget: dirbox SetOpcode: Reset: } AddAction: *New OpAction { SetTarget: dirbox SetOpcode: Draw: } } SetTouchOutside: FALSE SetTouchable: FALSE SetClickOutside: TRUE SetOutsideStatus: CANCEL } *Send tmpsaction { SetTarget: dirbox_dirname SetOpcode: SetString: RecvSValue: dwgdirectory AskDirMatch: Doit: } *New IluSAction dirbox_fnamelu { SetHolder: dwgdirectory SetLUOp: AskItemStr: SetTarget: dirbox_fname SetOpcode: SetString: } *New IAction dirbox_tmpfname { SetTarget: dirbox_fnamelu SetOpcode: SetIValue: } *New TxtList dirbox_fnamelist { SetDoneAction: *New Behavior { AddAction: dirbox_tmpfname AddAction: dirbox_fnamelu AddAction: *New OpAction { SetTarget: dirbox_fname SetOpcode: Draw: } AddAction: *New MsgAction { SetTarget: normalcursor SetMessage: "{ SetEventXY: 5 0 0 9 }" } } SetHolder: dwgdirectory BuildListButtons: 12 7 dirbox_tmpfname SetPosnRC: 5 1 SetPen: blackbkgd SetBorderPen: borderpen SetDrawSelf: FALSE SetReturnDone: FALSE SetReturnCancel: TRUE } *New Button dirbox_fname_up { SetGraphic: *New Composite { SetPosnRC: 4 1 SetSizeRC: 1 14 AddGraphic: *New Ftext { SetPosnRC: 0 5 SetString: "PgUp" } } SetDoneAction: *New OpAction { SetTarget: dirbox_fnamelist SetOpcode: PageUp: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button dirbox_fname_down { SetGraphic: *New Composite { SetPosnRC: 14 1 SetSizeRC: 1 14 AddGraphic: *New Ftext { SetPosnRC: 0 5 SetString: "PgDn" } } SetDoneAction: *New OpAction { SetTarget: dirbox_fnamelist SetOpcode: PageDown: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button dirbox_ok { SetGraphic: *New Composite { SetPosnRC: 14 22 AddGraphic: *New Ftext { SetString: "    OK" } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } } *New Button dirbox_cancel { SetGraphic: *New Composite { SetPosnRC: 12 22 AddGraphic: *New Ftext { SetString: "  CANCEL" } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetDoneAction: cancel SetSkipOver: TRUE } *Send dirbox { SetGraphic: *New Canvas { SetPen: dialogpen SetBorderPen: borderpen AddGraphic: *New Ftext { SetPosnRC: 1 1 SetString: "Directory:" } AddGraphic: *New Ftext { SetPosnRC: 3 20 SetString: "File:" } } AddDevice: dirbox_fnamelist AddDevice: dirbox_fnamefield AddDevice: dirbox_fname_up AddDevice: dirbox_fname_down AddDevice: dirbox_ok AddDevice: dirbox_cancel AddDevice: dirbox_dirfield AdjustSpacing: AddGraphic: *New Rectang { SetSizeRC: 1 33 SetFilled: TRUE SetPen: borderpen } AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: "DRAWING SELECT" SetPen: titlepen } AdjustAlignment: SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE SetInitAction: *New Behavior { AddAction: *New MsgAction { SetTarget: tmpsaction SetMessage: "{ RecvSValue: autodwg AskDirPath: DoitToit: dwgdirectory SetDirPath: }" } AddAction: *New MsgAction { SetTarget: tmpsaction SetMessage: "{ RecvSValue: dwgdirectory AskDirMatch: DoitToit: dirbox_dirname SetString: }" } AddAction: *New OpAction { SetTarget: dirbox SetOpcode: Reset: } } SetDoneAction: *New Behavior dirbox_doneaction { AddAction: *New MsgAction { SetTarget: dwgname SetMessage: "{ RecvSValue: dirbox_fname AskString: }" } } SetCancelAction: *New SAction dirbox_cancelaction { SetTarget: dirbox_fname SetOpcode: SetString: SetSValue: "" } } *New ObjAction usedirbox { SetTarget: dirbox SetOpcode: TakeControl: SetOValue: DUMYCALLER }  *Send initializing { SetString: "LOADING: 1                    " Draw: } *New Behavior loaddwg { SetReturnCancel: TRUE AddAction: *New SAction { SetTarget: messageboxtext SetOpcode: SetString: SetSValue: "Reading Drawing File..." } AddAction: *New OpAction { SetTarget: messagebox SetOpcode: Draw: } AddAction: *New MsgAction { SetTarget: tmpsaction SetMessage: " { RecvSValue: dwgdirectory AskDirPath: DoitToit: autodwg SetDirPath: }" } AddAction: *New MsgAction { SetTarget: dwgname SetMessage: "{ DoitToit: autodwg LoadFile: RecvSValue: autodwg AskDwgName: }" } AddAction: *New OnStatus { SetReturnCancel: TRUE SetCancelAction: *New Behavior { AddAction: *New OpAction { SetTarget: messagebox SetOpcode: Undraw: } } SetOKAction: *New Behavior { AddAction: *New OpAction { SetTarget: notes SetOpcode: Reset: } AddAction: *New OpAction { SetTarget: messagebox SetOpcode: Undraw: } AddAction: *New MsgAction { SetTarget: dwgname SetMessage: "{ DoitToit: dwgnametext SetString: Doit: }" } AddAction: *New OpAction { SetTarget: status SetOpcode: Draw: } AddAction: *New MsgAction { SetTarget: dwgname SetMessage: "{ DoitToit: prnpage_title1 SetString: Doit: }" } AddAction: *New OpAction { SetTarget: autodwg SetOpcode: DWGVIEW } } } } *New ObjAction usedirbox { SetTarget: dirbox SetOpcode: TakeControl: SetOValue: DUMYCALLER } *New Behavior selectdwg { SetStopOnCancel: TRUE SetReturnCancel: FALSE AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "DIRBOX" } AddAction: usedirbox AddAction: loaddwg AddAction: dwgdraw } *New Links link { SetLinkDrawing: autodwg SetTarget: dwgname SetPen: linkpen SetCursor: locatecursor SetInitAction: *New OpAction { SetTarget: link SetOpcode: InitLinks: } SetCancelAction: *New OpAction donelinks { SetTarget: link SetOpcode: DoneLinks: } SetDoneAction: *New Behavior { AddAction: *New OpAction { SetTarget: link SetOpcode: SendName: } AddAction: donelinks } } *New Behavior confirmlink { SetReturnCancel: TRUE AddAction: *New SAction { SetTarget: okcancelboxtext SetOpcode: SetString: SetSValue: "LOAD THIS DRAWING FILE?" } AddAction: *New MsgAction { SetTarget: dwgname SetMessage: "{ SetTarget: okcancelboxtext2 SetOpcode: SetString: Doit: }" } AddAction: *New ObjAction { SetTarget: okcancelbox SetOpcode: TakeControl: SetOValue: DUMYCALLER } } *New Behavior linktodwg { SetStopOnCancel: FALSE AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "LINK" } AddAction: *New Behavior { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "Point to Region to Link to Drawing..." } AddAction: drawprompt AddAction: *New ObjAction { SetTarget: link SetOpcode: TakeControl: SetOValue: NULLCALLER } AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "" } AddAction: drawprompt AddAction: confirmlink AddAction: loaddwg AddAction: dwgdraw } AddAction: undrawprompt }  *New Behavior zoomextents { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New OpAction { SetTarget: autodwg SetOpcode: ZoomExtents: } AddAction: dwgdraw } *New Behavior zoomlimits { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New OpAction { SetTarget: autodwg SetOpcode: ZoomLimits: } AddAction: dwgdraw } *New Behavior zoomdefault { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New OpAction { SetTarget: autodwg SetOpcode: ZoomDefault: } AddAction: dwgdraw } *New I2Action cornerpoint { SetOpcode: SetI2Value: } *New F22Action windowpoints { SetTarget: autodwg SetOpcode: SetWindow: } *New I2luF2Action cornermapper { SetHolder: autodwg SetLUOp: XformPtoW: SetTarget: windowpoints } *New RubberBox rubbox { SetTarget: cornerpoint SetOpcode: SetI2Value: SetCursor: locatecursor } *New Behavior firstpoint { SetStopOnCancel: TRUE SetReturnCancel: TRUE AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "                       Select First Corner of Zoom Window:" } AddAction: drawprompt AddAction: *New Locate { SetTarget: cornerpoint SetOpcode: SetI2Value: SetCursor: locatecursor } AddAction: *New ObjAction { SetTarget: cornerpoint SetOpcode: SetTarget: SetOValue: rubbox } AddAction: cornerpoint AddAction: *New ObjAction { SetTarget: cornerpoint SetOpcode: SetTarget: SetOValue: cornermapper } AddAction: cornerpoint AddAction: *New IAction { SetTarget: cornermapper SetOpcode: SetOpcode: SetIValue: SetF2Value1: } AddAction: cornermapper AddAction: undrawprompt } *New Behavior zoomrect { SetStopOnCancel: FALSE AddAction: *New Behavior { SetStopOnCancel: TRUE SetReturnCancel: TRUE AddAction: dwgverify AddAction: firstpoint AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "                       Select Second Corner of Zoom Window:" } AddAction: drawprompt AddAction: rubbox AddAction: cornerpoint AddAction: *New IAction { SetTarget: cornermapper SetOpcode: SetOpcode: SetIValue: SetF2Value2: } AddAction: cornermapper AddAction: undrawprompt AddAction: windowpoints AddAction: dwgdraw } AddAction: undrawprompt } *New ViewHolder viewname_holder { SetTarget: autodwg } *New IAction viewname_id { SetTarget: autodwg SetOpcode: ZoomView: SetIValue: 0 } *New TxtList viewname_namelist { SetDoneAction: *New Behavior { AddAction: viewname_id } SetHolder: viewname_holder BuildListButtons: 24 7 viewname_id SetPosnRC: 3 1 SetPen: blackbkgd SetBorderPen: borderpen SetDrawSelf: FALSE SetReturnDone: TRUE SetReturnCancel: TRUE } *New Button viewname_up { SetGraphic: *New Composite { SetPosnRC: 2 1 SetSizeRC: 1 26 AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: "PgUp" } } SetDoneAction: *New OpAction { SetTarget: viewname_namelist SetOpcode: PageUp: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button viewname_down { SetGraphic: *New Composite { SetPosnRC: 12 1 SetSizeRC: 1 26 AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: "PgDn" } } SetDoneAction: *New OpAction { SetTarget: viewname_namelist SetOpcode: PageDown: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button viewname_cancel { SetGraphic: *New Composite { SetPosnRC: 10 30 AddGraphic: *New Ftext { SetString: "  CANCEL" } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetDoneAction: cancel SetSkipOver: TRUE } *New Dialog viewnamedialog { SetGraphic: *New Canvas { SetPen: dialogpen SetBorderPen: borderpen } AddDevice: viewname_namelist AddDevice: viewname_up AddDevice: viewname_down AddDevice: viewname_cancel AdjustSpacing: AddGraphic: *New Rectang { SetSizeRC: 1 42 SetFilled: TRUE SetPen: borderpen } AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: "SELECT VIEW NAME" SetPen: titlepen } AdjustAlignment: SetReturnDone: TRUE SetReturnCancel: FALSE SetTouchOutside: FALSE SetClickOutside: TRUE SetOutsideStatus: CANCEL SetInitAction: *New Behavior { AddAction: *New OpAction { SetTarget: viewnamedialog SetOpcode: Reset: } } SetDoneAction: dwgdraw } *New TxtMenu viewmenu { SetPen: dialogpen SetBorderPen: borderpen SetInitAction: *New Behavior { AddAction: setdonedoit AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "VIEW" } } SetTitle: "CHANGE VIEW Options" AddTxtButton: "" "1 - Select Zoom Window" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: zoomrect } AddTxtButton: "" "2 - Zoom Extents" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: zoomextents } AddTxtButton: "" "3 - Zoom Limits" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: zoomlimits } AddTxtButton: "" "4 - Saved-As View" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: zoomdefault } AddTxtButton: "" "5 - Choose Named View" *New Behavior { AddAction: setdonecontrol AddAction: *New ObjAction { SetTarget: donecontrol SetOpcode: SetTarget: SetOValue: viewnamedialog } } AddTxtButton: "" "Cancel" cancel AdjustSpacing: AdjustAlignment: SetReturnCancel: FALSE SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: TRUE SetOutsideStatus: CANCEL SetDoneAction: doneaction }  *Send initializing { SetString: "LOADING: 2                    " Draw: } *New IAction layer_id { } *New TxtList layer_list { SetHolder: layer_holder BuildListButtons: 25 7 layer_id SetDoneAction: *New Behavior { AddAction: *New MsgAction { SetTarget: layer_id SetMessage: "{ SetTarget: layer_holder SetOpcode: ToggleLayer: Doit: }" } AddAction: *New MsgAction { SetTarget: layer_id SetMessage: "{ SetTarget: layer_list SetOpcode: UpdateButton: Doit: }" } } SetBorderPen: borderpen SetPen: blackbkgd SetPosnRC: 3 1 SetDrawSelf: FALSE SetReturnDone: FALSE } *New Button layer_list_up { SetGraphic: *New Composite { SetPosnRC: 2 1 AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: " PgUp " } SetSizeRC: 1 27 } SetDoneAction: *New OpAction { SetTarget: layer_list SetOpcode: PageUp: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button layer_list_down { SetGraphic: *New Composite { SetPosnRC: 12 1 AddGraphic: *New Ftext { SetPosnRC: 0 10 SetString: " PgDn " } SetSizeRC: 1 27 } SetDoneAction: *New OpAction { SetTarget: layer_list SetOpcode: PageDown: } SetReturnDone: FALSE SetSkipOver: TRUE } *New Button layer_showall { SetGraphic: *New Composite { SetPosnRC: 2 32 AddGraphic: *New Ftext { SetString: " SHOW ALL " } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetDoneAction: *New Behavior { AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: ShowAllLayers: } AddAction: *New OpAction { SetTarget: layer_list SetOpcode: UpdateAllButtons: } AddAction: *New OpAction { SetTarget: layer_list SetOpcode: Draw: } } SetReturnDone: FALSE } *New Button layer_hideall { SetGraphic: *New Composite { SetPosnRC: 4 32 AddGraphic: *New Ftext { SetString: " HIDE ALL " } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetDoneAction: *New Behavior { AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: HideAllLayers: } AddAction: *New OpAction { SetTarget: layer_list SetOpcode: UpdateAllButtons: } AddAction: *New OpAction { SetTarget: layer_list SetOpcode: Draw: } } SetReturnDone: FALSE } *New Button layer_cancel { SetGraphic: *New Composite { SetPosnRC: 10 32 AddGraphic: *New Ftext { SetString: "  CANCEL " } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetDoneAction: cancel } *New Button layer_ok { SetGraphic: *New Composite { SetPosnRC: 12 32 AddGraphic: *New Ftext { SetString: "   OK " } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } } *New Dialog layerdialog { SetGraphic: *New Canvas { SetPen: dialogpen SetBorderPen: borderpen } AddDevice: layer_list AddDevice: layer_list_up AddDevice: layer_list_down AddDevice: layer_ok AddDevice: layer_showall AddDevice: layer_hideall AddDevice: layer_cancel AdjustSpacing: AddGraphic: *New Rectang { SetSizeRC: 1 43 SetFilled: TRUE SetPen: borderpen } AddGraphic: *New Ftext { SetPosnRC: 0 16 SetString: "LAYER SELECT" SetPen: titlepen } AdjustAlignment: SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE SetInitAction: *New Behavior layer_initaction { AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "LAYER" } AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: ResetLayers: } AddAction: *New OpAction { SetTarget: layerdialog SetOpcode: Reset: } } SetDoneAction: *New Behavior { AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: UpdateLayers: } AddAction: dwgdraw } SetCancelAction: *New Behavior { AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: ResetLayers: } AddAction: *New OpAction { SetTarget: layer_holder SetOpcode: UpdateLayers: } } } *New Behavior layeraction { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New ObjAction { SetTarget: layerdialog SetOValue: DUMYCALLER SetOpcode: TakeControl: } }  *New TxtMenu printmenu { SetPen: dialogpen SetBorderPen: borderpen SetTitle: "PRINT/PLOT MENU Options" AddTxtButton: "" "1 - Page Setup" nullact AddTxtButton: "" "2 - Titles" nullact AddTxtButton: "" "3 - Select Device" nullact AddTxtButton: "" "4 - Begin Printing/Plotting" nullact AddTxtButton: "" "Cancel" cancel AdjustSpacing: AdjustAlignment: SetReturnCancel: FALSE SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE }  *Send initializing { SetString: "LOADING: 3                    " Draw: } *Define NOTESIZE 511 *New Ftextwin notetext { SetPosnRC: 1 1 SetSizeRC: 6 40 SetFixedSize: TRUE SetMaxLength: NOTESIZE SetEOBuf: SPACECH } *New NoteDialog notedialog { } *New Button note_up { SetGraphic: *New Composite { SetPosnRC: 7 2 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "  PgUp" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: *New Behavior { AddAction: *New MsgAction { SetTarget: normalcursor SetMessage: "{ SetEventXY: 7, 0, 0, 73 }" } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: Edit: } } SetReturnDone: FALSE SetSkipOver: TRUE SetHighliteSelf: FALSE } *New Button note_down { SetGraphic: *New Composite { SetPosnRC: 7 12 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "  PgDn" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: *New Behavior { AddAction: *New MsgAction { SetTarget: normalcursor SetMessage: "{ SetEventXY: 7, 0, 0, 81 }" } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: Edit: } } SetReturnDone: FALSE SetSkipOver: TRUE SetHighliteSelf: FALSE } *New Button note_cancel { SetGraphic: *New Composite { SetPosnRC: 7 22 SetPen: dialogpen AddGraphic: *New Ftext { SetString: " Cancel" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetDoneAction: cancel SetSkipOver: TRUE SetHighliteSelf: FALSE } *New Button note_ok { SetGraphic: *New Composite { SetPosnRC: 7 32 SetPen: dialogpen AddGraphic: *New Ftext { SetString: "F10-Save" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetSkipOver: TRUE SetHighliteSelf: FALSE } *Send notedialog { SetGraphic: *New Canvas { SetPosnRC: 3 10 SetPen: dialogpen SetBorderPen: borderpen } AddDevice: *New Fieldwin { SetGraphic: notetext } AdjustSpacing: AddGraphic: *New Rectang { SetSizeRC: 1 42 SetFilled: TRUE SetPen: borderpen } AddGraphic: *New Ftext { SetString: "NOTE #" SetPosnRC: 0 2 SetPen: titlepen } AddGraphic: *New Ftext notenumber { SetString: "0" SetPosnRC: 0 8 SetPen: titlepen } AddGraphic: *New Canvas { SetPosnRC: 7 0 SetSizeRC: 1 42 SetSaveUnder: FALSE SetPen: dialogpen SetBorderPen: borderpen } AddDevice: note_up AddDevice: note_down AddDevice: note_cancel AddDevice: note_ok AdjustAlignment: SetTouchOutside: FALSE SetClickOutside: FALSE } *New Pen notepen { SetPenColor: YELLOW SetBkgdColor: BLACK } *Send notes { SetNoteDrawing: autodwg SetNoteTextwin: notetext SetPen: notepen SetNoteNumberDisplay: notenumber SetMarkerStyle: 4 SetMarkerSize: 26 24 } *New I2luF2Action noteadder { SetHolder: autodwg SetLUOp: XformPtoW: SetTarget: notes SetOpcode: AddNote: } *New Behavior addnote { SetStopOnCancel: FALSE AddAction: *New Behavior { SetStopOnCancel: TRUE SetReturnCancel: TRUE AddAction: dwgverify AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " Select Location with Mouse (or use arrow keys and press Enter):" } AddAction: drawprompt AddAction: *New Locate noteaddlocator { SetTarget: noteadder SetOpcode: SetI2Value: SetCursor: locatecursor } AddAction: noteadder AddAction: *New OpAction { SetTarget: notes SetOpcode: SendNoteText: } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: Reset: } AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " Edit Note: press F10 to save; Esc to cancel" } AddAction: drawprompt AddAction: *New OpAction { SetTarget: notedialog SetOpcode: TakeControl: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNoteText: } AddAction: *New OpAction { SetTarget: notes SetOpcode: DrawCurrent: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNotes: } } AddAction: *New OnStatus { SetCancelAction: *New OpAction { SetTarget: notes SetOpcode: DeleteNote: } } AddAction: undrawprompt } *New I2luF2Action noteselecter { SetHolder: autodwg SetLUOp: XformPtoW: SetTarget: notes SetOpcode: SelectNote: } *New Behavior selectnote { SetStopOnCancel: FALSE SetReturnCancel: TRUE AddAction: *New Behavior { SetStopOnCancel: TRUE SetReturnCancel: TRUE AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " Select a Note Marker with Mouse (or use arrow keys and press Enter):" } AddAction: drawprompt AddAction: *New Locate { SetTarget: noteselecter SetOpcode: SetI2Value: SetCursor: locatecursor } AddAction: noteselecter } AddAction: undrawprompt } *New Behavior editnote { SetStopOnCancel: FALSE AddAction: *New Behavior { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: selectnote AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " Read/Edit Note: press F10 to save; Esc to cancel; Arrows to scroll" } AddAction: drawprompt AddAction: *New OpAction { SetTarget: notes SetOpcode: SendNoteText: } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: Reset: } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: TakeControl: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNoteText: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNotes: } } AddAction: undrawprompt } *New Behavior readnote { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: *New XYAction { SetTarget: noteselecter SetOpcode: SetI2Value: } AddAction: noteselecter AddAction: *New OpAction { SetTarget: notes SetOpcode: SendNoteText: } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: Reset: } AddAction: *New OpAction { SetTarget: notedialog SetOpcode: TakeControl: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNoteText: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNotes: } } *New I2luF2Action notemover { SetHolder: autodwg SetLUOp: XformPtoW: SetTarget: notes SetOpcode: MoveNote: } *New Behavior movenote { SetStopOnCancel: FALSE AddAction: *New Behavior { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: selectnote AddAction: *New OnStatus { SetOKAction: *New Behavior { AddAction: *New OpAction { SetTarget: notes SetOpcode: EraseCurrent: } AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: " Select New Location For Note: " } AddAction: drawprompt AddAction: *New Locate { SetTarget: notemover SetOpcode: SetI2Value: SetCursor: locatecursor } AddAction: notemover AddAction: *New OpAction { SetTarget: notes SetOpcode: DrawCurrent: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNotes: } } SetCancelAction: *New OpAction { SetTarget: notes SetOpcode: DrawCurrent: } } } AddAction: undrawprompt } *New Behavior deletenote { SetStopOnCancel: TRUE AddAction: dwgverify AddAction: selectnote AddAction: *New OpAction { SetTarget: notes SetOpcode: EraseCurrent: } AddAction: *New OpAction { SetTarget: notes SetOpcode: DeleteNote: } AddAction: *New OpAction { SetTarget: notes SetOpcode: SaveNotes: } } *New TxtMenu notemenu { SetPen: dialogpen SetBorderPen: borderpen SetInitAction: *New Behavior { AddAction: setdonedoit AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "NOTE" } } SetTitle: "POSTED NOTE Options" AddTxtButton: "addnotebut" "1 - Add Note" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: addnote } AddTxtButton: "" "2 - Edit Note" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: editnote } AddTxtButton: "" "3 - Move Note Marker" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: movenote } AddTxtButton: "" "4 - Delete Note" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: deletenote } AddTxtButton: "" "Cancel" cancel AdjustSpacing: AdjustAlignment: SetDoneAction: doneaction SetReturnCancel: FALSE SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: TRUE SetOutsideStatus: CANCEL }  *New Behavior quitaction { } *New TxtMenu mainmenu { SetPen: dialogpen SetBorderPen: borderpen SetTitle: "MAIN MENU" SetInitAction: *New Behavior { AddAction: setdonecontrol AddAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "MAIN" } } AddTxtButton: "loadbut" "1 - Load Drawing" *New Behavior { AddAction: setdonedoit AddAction: *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: selectdwg } } AddTxtButton: "linkbut" "2 - Hyper-Links" *New Behavior { AddAction: setdonedoit AddAction: *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: linktodwg } } AddTxtButton: "viewbut" "3 - Change View" *New ObjAction { SetTarget: donecontrol SetOpcode: SetTarget: SetOValue: viewmenu } AddTxtButton: "layerbut" "4 - Select Layers" *New Behavior { AddAction: setdonedoit AddAction: *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: layeraction } } AddTxtButton: "notebut" "5 - Posted Notes" *New ObjAction { SetTarget: donecontrol SetOpcode: SetTarget: SetOValue: notemenu } AddTxtButton: "printbut" "6 - Print/Plot" *New ObjAction { SetTarget: donecontrol SetOpcode: SetTarget: SetOValue: printmenu } AddTxtButton: "quitbut" "X - Exit Viewstation" quitaction AddTxtButton: "" "Cancel" cancel SetDoneAction: doneaction AdjustSpacing: AdjustAlignment: SetReturnCancel: FALSE SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: TRUE SetOutsideStatus: CANCEL } *Send maindwgbutton { SetGraphic: *New Canvas { SetPosnRC: 1 0 AddGraphic: autodwg AddGraphic: notes SetPen: blackbkgd SetSaveUnder: FALSE } SetDoneAction: readnote SetMovedAction: coordstr SetStatusBox: xytext SetReturnCancel: FALSE SetReturnDone: FALSE SetDrawing: autodwg SetDrawAction: dwgdraw } *New Main main { SetErrorBox: errorbox SetErrorTypeText: errortype SetErrorMsgText: errormsg SetErrorNameText: errorname SetGraphic: *New Canvas screengraphic { SetPosnRC: 0 0 SetSizeRC: SCRN_RSIZM1 SCRN_CSIZ SetSaveUnder: FALSE SetPen: blackbkgd AddGraphic: mainprompt } AddDevice: maindwgbutton AddDevice: *New Button mainmenubut { SetGraphic: *New Composite { SetPosnRC: 0 55 SetPen: dialogpen AddGraphic: *New Ftext { SetString: " sp-MENU" } AddGraphic: *New RoundRectang { SetSizeRC: 1 10 } } SetAsciiKey: SPACECH SetDoneAction: *New Behavior { SetReturnCancel: TRUE AddAction: *New ObjAction { SetTarget: mainmenu SetOpcode: TakeControl: SetOValue: DUMYCALLER } AddAction: *New OpAction { SetTarget: main SetOpcode: Reset: } } SetHighliteSelf: TRUE SetArrowMove: TRUE SetReturnCancel: FALSE SetReturnDone: FALSE } AddDevice: *New Button helpbut { SetGraphic: *New Composite { SetPosnRC: 0 70 SetPen: dialogpen AddGraphic: *New Ftext { SetString: " F1-HELP" } AddGraphic: *New RoundRectang { SetSizeRC: 1 9 } } SetAsciiKey: 104 SetDoneAction: helpaction SetHighliteSelf: TRUE SetArrowMove: TRUE SetReturnCancel: FALSE SetReturnDone: FALSE } SetDrawSelf: FALSE SetInitAction: *New SAction { SetTarget: helptopic SetOpcode: SetSValue: SetSValue: "GENERAL" } SetReturnCancel: FALSE SetReturnDone: FALSE } *Send quitaction { SetReturnCancel: TRUE AddAction: *New IAction { SetTarget: mainmenu SetOpcode: SetReturnCancel: SetIValue: TRUE } AddAction: *New IAction { SetTarget: main SetOpcode: SetReturnCancel: SetIValue: TRUE } AddAction: cancel }  *New Canvas blankstatus { SetSizeRC: 1 SCRN_CSIZ SetPosnRC: SCRN_RSIZM1 0 SetPen: whitepen SetSaveUnder: FALSE } *New Main maindemo { SetErrorBox: errorbox SetErrorTypeText: errortype SetErrorMsgText: errormsg SetErrorNameText: errorname } *New Ftextwin dealertext { SetPosnRC: 1 1 SetSizeRC: 19 69 SetEOBuf: 32 } *New HelpWindow dealertxtwin { SetGraphic: *New Canvas { SetPosnRC: 2 5 SetSizeRC: 21 71 SetPen: dialogpen SetBorderPen: borderpen AddGraphic: dealertext } SetHelpTextWin: dealertext SetHelpFile: "dealer.txt" SetSaveUnder: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE } *New Ftextwin demotext { SetPosnRC: 1 1 SetSizeRC: 19 69 SetEOBuf: 32 } *New HelpWindow demotxtwin { SetGraphic: *New Canvas { SetPosnRC: 2 5 SetSizeRC: 21 71 SetPen: dialogpen SetBorderPen: borderpen AddGraphic: demotext } SetHelpTextWin: demotext SetHelpFile: "demo.txt" SetSaveUnder: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE } *New Behavior demotxtaction { AddAction: *New Behavior { SetReturnCancel: TRUE AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "Press <Enter> for Next Page. Press <ESC> to return to Menu." } AddAction: drawprompt AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM1 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM2 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM3 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM4 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM5 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM6 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM7 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM8 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM9 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: demotxtwin SetMessage: "{ LoadHelp: SUM10 Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New MsgAction { SetTarget: dealertxtwin SetMessage: "{ LoadHelp: DEALER Draw: TakeControl: DUMYCALLER Reset: }" } SetStopOnCancel: TRUE } AddAction: undrawprompt AddAction: *New OpAction { SetTarget: maindemo SetOpcode: Draw: } } *New Behavior rundemoaction { AddAction: *New Behavior { AddAction: *New OpAction { SetTarget: mainprompt SetOpcode: Draw: } AddAction: *New OpAction { SetTarget: main SetOpcode: Draw: } AddAction: *New OpAction { SetTarget: status SetOpcode: Draw: } AddAction: *New MsgAction { SetTarget: DUMYOBJ SetMessage: "{ *Include demoscr.cf }" } } AddAction: *New OpAction { SetTarget: maindemo SetOpcode: Draw: } } *New Behavior moreinfoaction { AddAction: *New MsgAction { SetTarget: dealertxtwin SetMessage: "{ LoadHelp: DEALER Draw: TakeControl: DUMYCALLER Reset: }" } AddAction: *New OpAction { SetTarget: maindemo SetOpcode: Draw: } } *New Behavior quitdemoaction { } *New TxtMenu demomenu { SetPen: dialogpen SetBorderPen: borderpen SetInitAction: setdonedoit SetTitle: "DEMO OPTIONS" AddTxtButton: "" "1 - Feature Summary" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: demotxtaction } AddTxtButton: "" "2 - Run Demo" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: rundemoaction } AddTxtButton: "" "3 - For More Information" *New ObjAction { SetTarget: donedoit SetOpcode: SetTarget: SetOValue: moreinfoaction } AddTxtButton: "" "Quit" quitdemoaction SetDoneAction: doneaction AdjustSpacing: AdjustAlignment: SetReturnCancel: FALSE SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE SetDrawSelf: FALSE } *Send quitdemoaction { SetReturnCancel: TRUE AddAction: *New IAction { SetTarget: demomenu SetOpcode: SetReturnCancel: SetIValue: TRUE } AddAction: *New IAction { SetTarget: maindemo SetOpcode: SetReturnCancel: SetIValue: TRUE } AddAction: cancel } *Send maindemo { SetGraphic: *New Composite { AddGraphic: *New Canvas { SetPosnRC: 0 0 SetSizeRC: SCRN_RSIZ SCRN_CSIZ SetSaveUnder: FALSE SetPen: blackbkgd } AddGraphic: *New Rectang { SetSizeRC: 1 SCRN_CSIZ SetPen: titlepen SetFilled: TRUE } AddGraphic: *New Ftext { SetPosnRC: 0 0 SetString: "                 Welcome To The SirlinVIEW(tm) Software Demo                  " SetPen: whitepen } AddGraphic: *New Rectang { SetPosnRC: 1 0 SetSizeRC: SCRN_RSIZM2 SCRN_CSIZ SetPen: whitepen } } AddDevice: demomenu SetDrawSelf: TRUE SetReturnCancel: FALSE SetReturnDone: FALSE }  *New Composite inputlabels { AddGraphic: *New Ftext { SetString: "DATABASE RECORD" SetPosnRC: 0 1 } AddGraphic: *New Ftext { SetString: "Map:      Block:      Lot:" SetPosnRC: 2 1 } AddGraphic: *New Ftext { SetString: "Owner Last Name:" SetPosnRC: 3 1 } AddGraphic: *New Ftext { SetString: "     First Name:" SetPosnRC: 4 1 } AddGraphic: *New Ftext { SetString: " Street Address:" SetPosnRC: 5 1 } AddGraphic: *New Ftext { SetString: " Assessed Value:" SetPosnRC: 6 1 } } *New Button input_cancel { SetGraphic: *New Composite { SetPosnRC: 8 20 AddGraphic: *New Ftext { SetString: " Cancel" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } SetSkipOver: TRUE } *New Dialog inputform { SetGraphic: *New Canvas asdf { SetPen: dialogpen SetBorderPen: borderpen AddGraphic: inputlabels } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "A3  " } SetFixedSize: TRUE SetSizeRC: 1 4 SetPosnRC: 2 6 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "12  " } SetFixedSize: TRUE SetSizeRC: 1 4 SetPosnRC: 2 18 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "4   " } SetFixedSize: TRUE SetSizeRC: 1 4 SetPosnRC: 2 28 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "Jones               " } SetFixedSize: TRUE SetSizeRC: 1 20 SetPosnRC: 3 18 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "James               " } SetFixedSize: TRUE SetSizeRC: 1 20 SetPosnRC: 4 18 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "16 Sunset Drive     " } SetFixedSize: TRUE SetSizeRC: 1 20 SetPosnRC: 5 18 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Field { SetGraphic: *New Ftext { SetString: "$143,000            " } SetFixedSize: TRUE SetSizeRC: 1 10 SetPosnRC: 6 18 SetPen: blackbkgd SetReturnDone: FALSE } AddDevice: *New Button input_ok { SetGraphic: *New Composite { SetPosnRC: 8 31 AddGraphic: *New Ftext { SetString: "   OK" } AddGraphic: *New RoundRectang { SetSizeRC: 1 8 } } } AddDevice: input_cancel AdjustSpacing: AdjustAlignment: SetReturnDone: FALSE SetTouchOutside: FALSE SetClickOutside: FALSE } *New Behavior inputformaction { AddAction: *New SAction { SetTarget: promptmsg SetOpcode: SetString: SetSValue: "Enter Data:" } AddAction: drawprompt AddAction: *New OpAction { SetTarget: inputform SetOpcode: TakeControl: } AddAction: undrawprompt }  *Send normalcursor { ShowCursor: } *Send opening { Delete: } *Send blankstatus { Draw: } *Send maindemo { TakeControl: DUMYCALLER }